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18560-1986 23:43:43 VAXe11 BLiss-32_V6.0-74 p 1 
arch h88 Hides, || Pie SiwGhaStenccYou’secSmain.e32;1 2% cy} 
MODULE main CIDENT="v04-000", 


MAIN=CDUSMAIN 
ADDRESSING_MODE (EXTERNAL=GENERAL) ) 


Ss 


= BEGIN 


See AE REAR AAAA AREA AAAAEAE TAA A EATER ERHAAAAAAEEER Ree ee 


'@ 

' COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'‘® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

'w ALL RIGHTS RESERVED. 

'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'w COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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!t THE a Are IN THIS SOFTWARE IS SUBJ f TO CHANGE WITHOUT NOTICE 


ECT 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® AND 
'® CORPORATION. 


iw DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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} Facility: Command Definition Utility, Main Module 


Abstract: This module contains the main routines for the Command 
Definition Utility, Sornerty baeun as the Command Language 


Editor. The CDU is responsible for maintaining CLI Tables, 
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which are images or object files containing the internal 
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representation of DCL or MCR commands. The primary 
component of the CDU is a compiler which reads Command 
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Language Definition (CLD) files and compiles them into the 
internal format. Other features allow the deletion and 
oxtrect ion of information from DCL Tables, plus other 
goodies. 
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original CDU. It has been rewritten to make it a bit more 
flexible and easy to maintain, particularly in Light of all 
the enhancements in VMS V4. 


Sssss 


Environment: Native, User mode. The following privileges are required: 
CMEXEC For fooling with P1 space. 


Author: Paul C. Ana nggtopoulos 
Creation: 18 January 198 


! Modifications: 
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0 1 
0089 1 library ihoecten Lib’; 
1 require ‘cdur 


M2 
15-Sep-1984 23:43:43 74 p 3 
12ree=} 88s 97:83:32 Sheimain.032;1 2% ca} 


32 v4.0 
R:CCDU. 


3 6¢ 474 1! TABLE OF CONTENTS 
4 6 475 1! eae erenwanem soece-llCU SVU SO SS SOB SOS eS ee eeee 
; 664 ote 1 

, 477 1 forward rous tne 

3 4] of8 1 cdu$main, 

; ® 479 1 cdu$delete_mode: novalue, 

; 68 480 1 cdu$Sobject_mode: novalue, 

3 4 481 1 cdu$replacé_mode: novalue, 

: 0 4, ¢ 1 cdu$symbols_mode: novalue, 

; 4 rt ti : cdu$report_rms_error: novalue; 

; ig 88 1 

3 74 486 1! EXTERNAL REFERENCES 
>) 487 1! i  wmmmemeeeeeeeee  cocmceecececceceee= 
3; 0488 1 

PRBS a 0489 1 external routine 

; 78 0490 1 cdu$Scld, 

; 679 0491 «1 cdu$close_symbol_table_file, 

; 80 0492 1 cdu$delete_verb_name, 

5 6 CY 04935 1 cdu$free_all_nodes, 

5; «682 0494 1 cdu$generate_table_blocks, 

3.6 CBS 0495 1 cdu$Sopen_next_cid, 

; B4 0496 1 cdu$Sprepare_input_table, 

; @5 0497 1 cdu$Sprepare_listing file, 

3 6 0498 1 cdu$prepare_new_table 

: 87 0499 1 cdu$prepare-object_file 

; «88 0500 1 cdu$report_Cisting trailer, 

>) oe 0501 1 cdu$write_object_Tile, 

; 90 Bene 1 eGusur ite output cape. 

a 4 0505 1 cdu$Swrite_symbol_table_file, 

; 62 0504 1 cli$get_value, 

.. 0505 1 cli$present, 

; | (94 0506 1 str$trim; 

; 0507 1 

; | «696 0508 1 external 

oe 0509 1 cdu$gl_cld_errors: Long; 


2 
1B-Sen-1 964 $7:88:32  NISSUMEMASTERSCEOU ShCSmain.e32;1 2% ¢33 
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H GLOBAL DATA 
! The following item specifies the facility string to be used in object files 
! or any other files we create. 


global bind 
cdu$facility_string = dtext("VAX/VMS Command Definition Utility (V4-001)'): descriptor; 
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18.< 1984 23:43:43 VAX-11 Bliss-32 V4.0-74 Pa 5 
1279 08-1 3b 97:28:32 NT EKSUMGHASTERSCYDU SRCSMAIN.B32:1 v (4) 


'e¢ 

: Description: This is the main routine of the Command Definition Utility. 
: It is responsible for determining which operating mode the 
user has requested and invoking a routine for that mode. 

| Parameters: None. 

! Returns: Most severe status encountered during execution. 

; Notes: 


GLOBAL ROUTINE cduS$main 
= BEGIN 


own 
worst status: long initial (msg(cdu$_success)); 
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3 
MAIN iSese $1984 23:43:43 VAX-11 Bliss<-32 V4.0-74 Page 6 ' 
-v04-000 14-Sep-19 4 4:33:53 DISKSVMSMASTER: CCDU.SRCJMAIN.B32;1 . (5) A 
ip. § 5 ! The following routine is the global condition handler. Its purpose is to 
4 1 $ : save the worst status that is signalled during the execution of the CDU. 
3 : b284 ! It is this status that is returned to DCL. 
; 130 B2 9 ROUTINE condition _handler(signal_vector: ref vectorl,long]) 
3 131 540 = BEGIN 
BS ¢ 0541 | 
7 b2¢ bind 
. 3 bee status = signal_vector(1]: Long; 
s 1595 544 own | 
3 136 Bee? severity_map: vector(8,byte] initial (byte(2,0,3,1,4,4,4,4)); | 
3 13 beey if .severity_map(.status<0,3,0>] gtru .severity_mapl.worst_status<0,3,0>] then 
3 i 0548 worst _status = .status; 
; 140 0549 
3 (141 0550 return false; 
; 106 0551 
3 (14 0552 2 END; 
-TITLE MAIN 
»IDENT \v04-000\ 
-PSECT S$PLITS,NOWRT,NOEXE,2 
64 6— 61 6D 6D 6F 43 0 53 4D 56 2F 58 41 56 00000 P.AAB: .ASCII \VAX/VMS Command Definition Utility (V4-0\ ; 
69 74 55 20 6E& 6F 69 74 69 6E 69 66 65 44 20 0000F F 
30 2D 34 56 28 20 79 74 69 $f QOO1E 3 
00 29 31 30 00028 -ASCII \01)\<0> 3 
010E002B rh P.AAA: .LONG 17694763 : 
00000000' 00030 «ADDRESS P.AAB : 
-PSECT SOWNS,NOEXE,2 
000000006 00000 WORST_STATUS: 
«LONG CDUS_SUCCESS : 
04 04 04 04 01 O03 00 O02 00004 SEVERITY_MaAP: 
~BYTE 2, 0, 3, 1, 4 4. 4. 4 : 
CDUSFACILITY_STRING== pee 
-EXTRN CDUSCLD, CDUSCLOSE SYMBOL_TABLE_FILE 3 
-EXTRN CDUSDELETE_VERB_NAME ; 
-EXTRN CDUSFREE ACL_NOBES 
-EXTRN CDUSGENERATE- TABLE _BLOCKS 
«EXTRN CDUSOPEN_NEXT CLD 
-EXTRN CDUSPREPARE_INPUT TABLE 
-EXTRN CDUSPREPARE_LISTIAG FILE 
| -EXTRN CDUSPREPARE NEW TABLE 
-EXTRN CDUSPREPARE OBJECT _F ILE ; 
-EXTRN CDUSREPORT CISTING TRAILER 3 
-EXTRN CDUSWRITE_OBJECT_FILE 3 
-EXTRN CDUSWRITE_OUTPUT_ TABLE ; 
-EXTRN CDUSWRITE SYMBOL TABLE FILE 3 
-EXTRN CLISGET VALUE, CCISPRESENT i 
SEXTRN STRSTRIM, CDUSGL_CLD_ ERRORS : 
-EXTRN CDUS_SUCCESS 
! 
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; Routine Size: 


Cou 


37 bytes, 


Routine Base: 


3 
WBosep-19Re 25:45:45 vane aLisecd2 ve 05763 


«PSECT S$CODES,NOWRT,2 
000C 00000 reese ~ yong 


: S 
0000" CF 9 9000 MOVAB WORST Ree Tus, R3 
4 C1 0000 ADDL3 #4, STGNAL VECTOR, R2 
0 EF 0000C EXT2V ‘ ‘ ‘ . (R2) 
00 ef 0011 EXTZV ? RSf_STATUS, RO 
04 A341 91 00016 CMPB SEVERITY MAPLRI). SEVERITY_MAPLROJ 
03 18 001D BLEQU 
$2 D 90018 MOVL (R2), WORST_STATUS 
D4 00¢2 1$ CLRL = RO 
04 00024 RET 


SCODES + 0000 


Page 
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3 
isa 1984 23:43:43 VAX-11 Bliss-32 V4.0-74 P 
127808-1 38 97:38 352 DIEKSVMGHASTER-LYDU. SRCIMAIN. B32; 1 net (6S 
' Main routine. 
! Establish a global condition handler to save the worst status that is 
! signalled. 
enable 
condition_handler; 
! Determine which operating mode the user wants. This is specified by a 
! major qualifier on the SET COMMAND command, of which /REPLACE is the default. 
if cliSpresent(dtext("DELETE’)) then 
cdu$delete_mode 
else if cli$presen€(dtext('OBJECT')) then 
cdu$Sobject_mode 
else if cli$present(dtext('SYMBOLS')) then 
cdu$symbols_mode() 
else 
cdu$Sreplace_mode(); 
! Return the worst status that was signalled, with the inhibit flag set. 
return .worst_status + sts$m_inhib_msg; 
1 END; 
-PSECT SPLITS,NOWRT ,NOEXE,2 
00 00 45 54 45 4C 45 44 00034 P.AAD: .ASCII YOELE TE <O><0> 3 
010E0006 O003C P.AAC: .LONG 17694726 3 
00000000" 00040 ADDRESS P.AAD 3 
00 00 54 43 45 4A 42 4F 00044 P.AAF: .ASCII \OGNECT)<0><0> F 
010E0006 O004C P.AAE: .LONG 17694726 3 
00930099" 00050 ADDRESS P.AAF 3 
00 53 4C 4F 42 4D 59 00054 P.AAH: .ASCII \SYMBOLS\<0> ; 
010E0007 5 P.AAG: .LONG 17694727 3 
00000000° 00060 -ADDRESS P.AAH 3 
-PSECT S$CODES,NOWRT,2 
0004 000 -ENTRY CDUSMAIN, Save R2 ; 0530 
52 000000006 00 9€ 000 MOVAB (CLISPRESENT, R2 ; 
6D 0044 CF ODE 000 MOVAL 5$, (FP) ; 0531 
0000" CF 9F 0000 PUSHAB P.AAC ; 0563 
1 Fe 001 CALLS #1, CLISPRESENT 3 
0 0 €9 0001 BLBC RO, 3 
0000v CF 99 + 001 CALLS #0, CDUSDELETE_MODE ; 0564 
11 0001D BRB 4$ 3 
0000" CF 9F QOOIF 1$: PUSHAB P.AAE ; 0565 
6 1 4 0023 CALLS #1, § ISPRESENT 3 
0 0 €9 000 3 BLBC RO, 3 
0000v CF 0 4 38 CALLS #0, CDUSOBJECT_MODE ; 0566 
16 11 00 3 BRB 43% : 
0000° CF 9F 00050 2$: PUSHAB P.AAG ; 0567 
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! Description: This routine handles /DELETE mode, in which the user wants 

: to remove one or more verb names from the CLI table. Wwe 
retrieve the List of verb names and delete them from the 


; 170 77 #1 

. are 4 1 

3 76 79 1! 

: ii Osby | tabl ti 

3 : able, reporting any errors. 

: 4175 58 1 | toh te Rgpin 

: 179 5 1! Parameters: None. 

3; VW 584 1! 

; «178 585 1 ! Returns: Nothing. 

3; 179 5 $ | 

3 10 03 4 ' Notes: 

5 is¢ ta 1 

; 18 0590 1 GLOBAL ROUTINE cdu$delete_mode : novalue 

: «184 0591 = BEGIN 

3; «6185 8288 

: 198 59 local 

: 18 0594 status: long; 

>; «6188 0595 

: «189 8298 

3 Hb £444 ! Cali a routine to prepare the input CLI table for modification. 
$ 136 0599 cduSprepare_input_table(); 

; 19 0600 

: 194 0601 ! Loop through the List of verb names to be deleted. 

; 195 Bone 

3; «196 060 loop ( 

: 197 0604 

; 18 eit ! We need a buffer with descriptor to get a verb name. 

5 soy 4 0607 with_dbuffer(verb_name, 32, 

3 202 P 0609 ' Get the next verb name in the List. Quit if there aren't 
: 20 P 0610 ! any more. 

3 204 P 0611 

; 205 P b6i¢ status = cli$get_value(dtext("DELETE') ,verb_name); 
: 206 P 061 if not .status then exitloop; 

; 208 4 Bele str$trim(verb_name,verb_name,verb_name) ; 

3 10 4 2018 !' Call a routine to delete the verb name from the table. 
; $13 P $618 status = cdu$delete_verb_name(verb_name); 

: \ B +984 check(.status, msg(Cdu$_fhosuchverb),1,verb_name); 
3 Sti be 1 v3 

3 «6215 06 § 

r 1g Be ? ! Write out the modified CLI table. 

; 218 0625 cdu$write_output_table(); 

: 219 06 $ 

; 220 82 return; 

s del 628 

3 dee 0629 END; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


1 


3 
Yoet000 13-Sen-1964 FigS. | Pee WtAl SER hbo ’skeSmaiw.ese;1 "20? <}} 
00 00 45 54 45 4C 65 6&4 64 P.AAJ ASCII \ ELETE\<0><0> : 
gndeoads, SuRee PCAAL: Luge 176bE788 ; 


-EXTRN CDUS_NOSUCHVERB 
«PSECT S$CODES,NOWRT,2 


0004 000 ENTRY COUSDELETE. MODE, Save R2 : 0590 

se C2 000 §UBL2 ; 
000000006 0 Fe 0 CALLS 49 CDUSPREPARE. INPUT_TABLE : 9599 
E p C 1$: MOVL é ; 0620 

04 AE 08 AE 9E 0000F VAB vERb NAMETO. VERB_NAME +4 : 

SE pb 14 SHL SP : 

0000" CF O16 PUSHAB P.AAI F 

000000006 00 F 1A CALLS as CLISGET_VALUE ; 

2 D 0021 MOVL TAT ; 3 

1 E9 00024 LBC —s STATUS, : 

—E DD 900 7 PUSHL SP : 

04 AE 9F 00029 PUSHAB VERB NAME : 

08 AF 9F 0002C PUSHAB a : 

000000006 00 Q FB OO002F CALLS # STASTRIM : 

E DD 000 PUSHL : 

000000006 00 01 FB 00038 CALLS i, CDUSDELETE _VERB_NAME F 

3 50 D0 003F MOVL RO. STATUS : 

C 52 €£ 00042 BLBS STATUS, % : 

SE DD 0004 PUSHL SP : 

01 DD 00047 PUSHL #1 : 

000000006 8F DD 00049 PUSHL ’ Dus NOSUCHVERE : 

000000006 00 03 FB 0004F CALLS , LIB$SIG ; 
B4 11 00056 BRB : 0599 
000000006 00 00 FB 00058 2s: CALLS #0, CDUSWRITE_OUTPUT_TABLE + 0625 
04 0005F RET > 0629 


3; Routine Size: 96 bytes, Routine Base: $CODE$ + 0086 
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i Description: rave routine 7 les /OBJECT mode, in which the user wants 
to compile an ob rcs file representing one CLD file. The 


-000 
4 6 
5 } 
5 6 i CLD file is compiled and the resulting table blocks are 
8 ? } written into an object file. 
6 | Parameters: None. 
é 6 ! Returns: Nothing. 
i Notes: 

5 o len 
7 064 GLOBAL ROUTINE cduSobject_mode : novalue 
: 64 = BEGIN 

64 local 

64 _fab: poin 

St_cld: pestain initial (true); 


: Call a routine to set up a new, empty CLI table. Commands defined in the 
i CLD tile will be added to this table. 


cduSprepare_new_table(); 
! Open the CLD file. If there isn't one, forget it. 
cld_fab = gduSopen. next_cld(); 


if Tcld_fab eqla O°then™ 
“return; 
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! Prepare the object file to receive the table blocks. 
cdu$Sprepare_object_file(.cld_fab); 

! Prepare the Listing file, if any, to receive the listing. 
cduSprepare_listing_file(.cld_fab); 


= 


! Parse the CLD file into an intermediate representation. 
cdu$cld(); 


! If no pyaten errors were discovered, then generate all of the CLI 
! table blocks from the intermediate representation. 


if .cdu$gl_cld_errors eqlu 0 t 
cdu$generate_table_ blocks () : 
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! If no errors of any kind were discovered, then write the object file. 


COCCI 


if .cdu$gl_cld_errors eqlu 0 t 
cdu$write_object_ titetye 


! Finish up the Listing file. 


SSSSSSSS SSS SS = 


Rohororononofononononory 
AN ~“ 
o 


3 
MAIN hes -1984 43:43 VAX-11 Bliss-32 V4.0-74 P 13 
y04~000 Fak aes ac Se a tS et er cD 


3 e 687 cduSreport_Llisting_trailer(); 
: Bs 6 return; 
: 285 691 1 END; 


000¢ 00000 -ENTRY CDUSOBJECT_MODE Save R2,R3 3 0643 
53 000000006 00 F 9008 MOVAB CDUSGL CLD ERRORS, R ; 
000000006 00 0 FB 900¢ CALLS #0. CDUSPREPARE_NEW_TABLE + 0654 
000000006 9 0 FB 0001 CALLS #0, CDUSOPEN_NERT_CC : 0658 
0 DO OOO1A OVL RO, CLD_F : 
$ 13 0001D EOL «Ss 38 + 0659 
DD 0001F PUSHL CLD_FAB + 0664 
000000006 00 g1 FB 00021 CALLS #1, CDUSPREPARE_OBJECT_FILE : 
2 DD 00028 PUSHL  CLO_FAB + 0668 
000000006 00 oi FB OOO2A CALLS #1,” CDUSPREPARE_LISTING_FILE : 
000000006 00 : Fe 90 1 CALLS #0. CDUSCL : 0672. 
63 D3 90 é sit CDUSGL_CLD_ERRORS : 067 
000000006 00 09 FB 000 ¢ CALLS #0, CDUSGENERATE_TABLE_BLOCKS + 0678 
63 D5 00043 1$: TSTL  CDUSGL_CLD_ERRORS + 0682 
07 12 00045 NEQ 2% : 
000000006 00 00 FB 00047 CALLS #0, CDUSWRITE_OBJECT_FILE + 0683 
000000006 00 00 re Boose + CALLS #0, CDUSREPORT_LISTING_TRAILER ; b68? | 


; Routine Size: 86 bytes, Routine Base: S$CODE$S + O0E6 


3 
1$-se 1984 23:43:43 VAX-11 Bliss-32 V4.0-74 Page 14 
~000 eaSeer 88S FFisase Pete ERe eRe seeSmatw.ese;1 P2* «fs 
7 ] 'oe 
bs $38 ! Description: This routine handles /REPLACE mode, which is the fundamental 
8 694 ! mode by which a user adds or replaces command definitions. 
90 95 ! We compile a set of CLD files and add/replace the 
91 88 ; definitions to an existing CLI table specified by the user. 
35 9 : When compilation is complete, we create a new CL] table 
9 698 with all the resulting definitions. 
39 ; Parameters: None. 
03 Returns: Nothing. 
bz Notes: 
GLOBAL ROUTINE cduSreplace_mode : novalue 
= BEGIN 
local 


cld_fab: pointer 

errors: boolean initial(false); 
! Call a routine to prepare the input CLI table for modification. 
cdu$Sprepare_input_table(); 


! Sit in a loop to compile each CLD file. Open each file in turn, quiting 
! when we run out of files. 


while (cld_fab = cduSopen_next_cld()) nega 0 do ( 
! Prepare the Listing file, if any, to receive the Listing. 
cduSprepare_listing_file(.cld_fab); 


AAANNIAA AAW 


DISA RWI SOS NOUR UV O00 NAME WA OORIE ARI O OR IR 


! Parse the CLD file into its intermediate representation. 
cdu$cld(); 


! If no syntax errors were discovered, then generate all of the CLI 
! table blocks from the intermediate representation. 


WALA AI AI AIO ROPONUNINONONUNINY SS SS OOOO 


DWNO NEW 0 OBNOAUE WN (OC OONOA UE WIN = O ODNOULS WN ODOONOu 


if -¢duSgl_cld_errors eqlu 0 then 
cdu$generate_table_blocks(); 


! Remember if any errors occurred, so we won't write the new table. 


Ww 


if .cdu$gl_cld_errors nequ 0 then 
erfors = true; 


SNS NNO 


' Clear exay the intermediate representation to prepare for the 


SELLS 


WWINI NI WIN WII WWII WII III Inouye 


SOOCSOSOOSOOOSOCOSOOSOSOSOSOOSOSOOSOCOOSSSSSOSCOOCOCOOCOOOOOOOOOoOOoOO. 


44 4 ! next CLD e. 
41 , cdu$free_all_nodes(); 
re 74 ! Finish up the Listing file. 


3 
MAIN 1bese $1984 23:43:43 VAX-11 TS 32 v4. Page 15 
v04-000 12-8 08- 1 9be $9533 °33 DISKSVMSMASTER: CcoU. ORC IMAIN. B32; 31 . (9) 
: re 138 dus t_listi iler@ 
3 cdu$Sreport_listing_trailer(); 
: $46 731 ); . 
3 rk i ! If no errors were discovered, then write out the new CLI table. 
; 0 755 if not .errors then 
3 1 P38 cdu$write_output_table(); 
3 3g 0758 return; 
3 54 1594 
3 3555 760 END; 
001C 00000 ENTRY CDUSREPLACE_MODE, S R2,R3,R4 0707. 
Bs aye 3 
54 000000006 99 9F 90002 OVAB — CDUSGL_CLD -ERRORS, ; | 
53 94 00009 CLRB ERRORS” 3; 0708. 
000000006 00 8 FB 00008 CALLS #0, CDUSPREPARE {NPUT TABLE 3 0717) 
000000006 8 0 FB Ole 1$ CALLS #0, CD USOREN NERT_ 3 0722) 
5 50 0 0001 MOVL RO, CLD_FAB 3 | 
35 13 0001C BEQL 4$ 3 
52 DD OOOIE PUSHL  CLD_FAB 3 0726) 
000000006 68 01 FB 00020 CALLS #1,” CDUSPREPARE LISTING_FILE 3 
000000006 00 00 re 00027 CALLS #0, CDUSCL 3 0730) 
64 0D 44 E TSTL CDUSGL_CLD_ERRORS 3; 0735 
07 12 00030 BNEG -2$ : | 
00000000G 00 00 FB 00032 CALLS #0, CDUSGENERATE TABLE_BLOCKS 3: 0736. 
64 D5 00039 2$ TSTL CDUSGL_CLD_ERRORS 3 0740 | 
03 13 ats BEQL 3$ 3 
53 01 90 0003D MOVB #1, ERRORS 3 0741 
000000006 00 00 FB 00040 3$ CALLS #0, CDUSFREE_ALL_NODES 3: 0746 
000000006 00 00 FB Bone! CALLS #0, CDUSREPORT tT TSTING. TRAILER 3; 0750 
C2 11 O004E BRB 1$ 3 0722 
oY 53 £8 00050 4$: BLBS ERRORS, 5$ ; 0755 
000000006 00 00 FB 00053 CALLS #0, CDUSWRITE _OUTPUT_TABLE 3; 0756 
04 0005A 5$: ET 3; 0760 


; Routine Size: 91 bytes, Routine Base: S$CODE$ + 013C 


se 


i= 


PAPAS AO UII 
NOUS WN —OOO~n 


nO 
ooo 


AIAN AINA NWN 


SSESEEE 


SSeS 


LAAN AAAI AIA AINA 
ooowowoe ~ 
UMPwnN— 


to 


Suww 
Sss 
on 
= PROPONOPONUPONONITU WWW & EB WWIII rnononononononnn 


Be Be Se Se Be Se Se Be Se Se Se Se Se Se Ge Ge Ge Se Fe Se Se Se Ge Ss Ge Se Se Se Ss Ge Ge Be Se Ge Se Ss Se Se Se Se Sse Se Se Se Se Se SF Ss Se Ss Se Se tees 


Sooooooooo 
00000000000 60 00 00 
-—-— OOOO 
Fwn Oo 0eane 


1ar$ep=1984 11:58:4  Dl SKS VMSHASTE 


'e¢ 


reg 
RC JMAIN.B32; 1 


| Description: This routine handles (SvGROLS mode, in which the user wants to 
e @ 


generate a symbol tab rom a set of CLD files. The 


i syaber sgete file is needed when commands make use of the 
; old CLI interface. The Synpots define the qualifier and 
keyword numbers for use with the old CLI callbacks. 

In this mode, no CLI table blocks are generated. 
Parameters: None. 

} Returns: Nothing. 

Notes: 

GLOBAL ROUTINE cdu$symbols_mode : novalue 

= BEGIN 

local 


symbols_written: boolean initial(false); 
! Sit in a loop to compile each CLD file. Open each file in turn, quiting 
! when we run out of files. 
while cdu$Sopen_next_cid() neqa 0 do ( 
! Parse the CLD file into an intermediate representation. 
cdu$cld(); 


! If no syntax errors were discovered, then add the symbols from 
! this CLD to the symbol table file. 


if .cdu$gl_cld_errors eqlu 0 then ( 
cdu$write_symbol_table_file(); 
symbols_written = true; 


' Clear oxsy fhe intermediate representation to prepare for the 
! next CLD file. 


, cdu$free_all_nodes(); 


! Close out the symbol table file if we ever wrote any. 


if .symbols_ written then 
cdu$close_symbol_table_file(); 


return; 
END; 
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DT SKSVMSMASTER<CCDU. SRCIMAIN. 83251 


oO 
o 

rere ~~ KREOrDWODO 
ooo oo OOOCOCOoOoOO 
fete te te *e *e *e te Se te *e te *e Fe te 
w uw 

aud ad 
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ae a 

‘ t 

w w 

N _j =! 
= @ @ 
i? <= 

ao - w be 
> a ' w t 
eo «J — & ad 
wn wow o20 #*#O 
4 Owe so 

-_ “ww =e 1 = 
w x ec Se > 
a2zw So Oe Zw 
owe « =<ct ws ft 
=e 1 ce ws t ew 
-—2 wae ww 
Mus a t=mMw —O 
aca. fo Q2ic ci 
o30 ey 3ZOu. Bw 
2 ad Av MO as 
wa > tt S25 > 
>i4a at ar-a iG 
MOw Veo UwMYwU OW 

cad a @ 


ab : fa A 

= NO OS 
StS Ohana 
CDOCCO RK RK RK NINICINIMIM 
SOoooooooooooooo 
SOooQoQooooooooo 


Tv Oumawnu@oe@-C as 
OOu Oru Oru Cun wnO 


S 


NOOWOCSO LOOMS 
NOWMUOOOOSOO Ano 


000000006 
s 
07 
00 


000000006 00 
000000006 00 
000000006 
000000006 
000000006 


Routine Base: S$CODE$ + 0197 


60 bytes, 


3; Routine Size: 


Be Se Se ee Se Oe Se Se Ge Be Se Gy FH He Ge Se Se Se Ge Se FH Se Ge FH Se Se Se Se Be Se Fs OF Se oe Se FF Se Se Se OF SH SH Os Se 5 Se Oe Se SH Sees Stas 


_——— 
i 
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WN] OOONAUESWN OO ONOUS Wr 


tak et et el ek ee et et et et ee et et et et et et et et te 
WANWIWNPIPUNPIPIPININMINNIDY 2 2 2 OO Oe 


434 


pe ele fee lee lolol elolololololololo) 
G0 Gd C9 OD CD Cd C9 C9 9 CD CD OD C0 CD C9 CO CD. CO. OD0D 


SWAANAIHA NIN POPOPononononomngwns 2 3 


OOoOooooo 
0009000000 00 Co 


= 
IM =O OONAULS WN ("OVO ONAULS WN OVONOu 


=POIPIPININININININININININI ARI LAPP NINIDINIPINININININPYININININIDY 9 9 9 I 
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14-Sep-1984 11:58:24 DISKSVMSMASTER: CCDU.SRCJMAIN.B32;1 (11) 
oe 
i Description: This routine is called to report an error from an RMS 


operation. 


Parameters: message value, a geoeeee status code. used for the 


Test Line of the messa 


i 
i 
i 
i ge. is assumed 
: = take a single !AS $FAO ae, the file 
! pec. 
: rms_block ey reference, a FAB or RAB which contains 
: e error status code. 
! Returns: Nothing. 
i Notes: This routine assumes that all FABs have associated NAM 
blocks. 
GLOBAL ROUTINE cdu$Sreport_rms_error(message: long 

rms_block: eriater) : novalue 
= BEGIN 
local 


fab: pointer, 
nam: pointer 
file_spec: Sieertever: 


! Pick up a pointer to the FAB and NAM blocks. 


fab = (if .rms piseks renee bid] eqlu fab$c_bid then .rms_block else .rms_blockCrab$l_fab]); 
nam = .fablfab$i_namj; 


! We need to find a file spec which can be included in the first message 
i Line. Use the one which is most complete. 


if ment nett. rsl] nequ 0 then 

ild- alesse iptgrs tite spec. -nam[nam$b_rsl],.namCnam$l_rsa]) 
else if neat heute. @ sl] ne 

uild seaatediet le Pm -namCnam$b_esl],.nam[nam$l_esa]) 


build_descriptor(file_spec, .fablfab$b_fns],.fab{fab$l_fna]); 
strStrim(tile “spec. file_spec,file_spec); 


else 


! Signal the error stored in the RMS block. 


if .rms_block(fab$b_bid) eqty fab$c_bid then 
signal(.mesSage,1,file_spec, .rms_block(fab$l_stsJ,.rms_block(fab$l_stvJ) 


signal(.message,1,file_spec, .rms_blockCrab$l_stsJ,.rms_blockCrab$l_stv]); 


else 


return; 
END; 


hess 


<2? 


Pee Se ee Se Se Ge Se Se Se See Se Se Se Ge Se Ge eee Fe Ge Se Se See Se Se Se Se Se Se Se SSeS Seas eee Se Se Se ee Se ee Peas 


V4.0-74 Page 19 
a tbU sec SMAIN.832: 1 . (11) 


000 0 -ENTRY CDUSREPORT_RMS_ERROR, Save R2,R3 3 0832 
5 08 ¢ 0 SUBL2 #8 ; 
5 08 AC 00 0000 OVL RMS_BLOCK, R2 + 0844 
5 Bs 0009 CLRL R3 : 
03 1 00008 CMPB (R2), #3 : 
1 990 BNEQ 1$ : 
; D 01 INCL R3 3 
51 D 9001 MOVL R2, FAB : 
04 11 0001 BRB 2 3 
31 3¢ =6A2 DO 00017 1$: MOVL 60(R2), FAB : 
0 38 Al p 0018 2$: MOVL 40(FABS, NAM + 0845 
AO 1F TSTB (NAM) ; 0850 
OE 13 00022 BEQL $ : 
6E 03 AO 98 900 4 MOVZBW 3(NAM) FILE SPEC : 0851 
02 AE B4 00028 CLRW = FIAILE_SPEC+ : 
04 AE 04 ad 00 00028 MOVL 4(NAM), FILE_SPEC+4 : 
1F 11 00030 BRB 5$ ; 0850 
0B AO 95 900 é 3$: TSTB 11 (NAM) ; 0852 
OE 13 0003 BEQL 4$ ; 
6E 0B AO 9B 00037 MOV7BW 11(NAM), FILE_SPEC 3 0853 
02 AE B64 00038 CLRW FILE_SPEC+ 3 
04 AE 0¢ ad DO 000 3 MOVL 12(NAM), FILE_SPEC+4 : 
OC 11 0004 BRB 5$ 3 0852 
6€ 34 Al 9B 00045 4$: MOV7BW 52(FAB), FILE_SPEC : 0855 
02 AE B4 00049 CLRW §=s- FALE SPEC+ : 
046 AE 2c =6Al «20 0004C MOVL 44(FAB), FILE_SPEC+4 : 
SE DD 00051 5$: PUSHL SP : 0856 
04 AE 9F 00053 PUSHAB FILE_SPEC 3 
08 AE 9F 00056 PUSHAB FILE SPEC : 
000000006 00 03 FB 00059 CALLS #3, STRSTRIM F 
7E 08 A2 7D 00060 MOVQa B(R2), -(SP) ; 0863 
08 AE 9F 00064 PUSHAB FILE_SPEC 3 
01 DD 00067 PUSHL #1 3 
04 AC DD 00069 PUSHL MESSAGE : 
000000006 00 0S FB 0006C CALLS #5, LIBSSIGNAL 5 
04 00073 RET ; 0867 
; Routine Size: 116 bytes, Routine Base: S$CODE$S + 01D3 
: 465 0868 1 END 
: 666 0869 0 ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SPLITS 116 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 1g NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: $CODES 583 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL. CON.NOPIC.ALIGN(O) 


4 

MAIN 18.56 -1984 43 VAX-11 Bliss-3 
‘Wod%o00 1a-8ep=198¢ 7 $3 24 DISKSVMSMASTER 
| 

$ Library Statistics 

: (Ste eee a ee Symbols sot eee eS Pages Processing 

: File Total Loaded Percent Mapped Time 

; .$255$DU428: CSYSLIBILIB.L32;1 18619 19 0 1000 00:01.9 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MAIN/OBJ=OBJ$:MAIN MSRC$:MAIN/UPDATE=(ENH$:MAIN) 

3: Size: 583 code + 128 data bytes 

; Run me: 214, 

3; Elapsed Time: 00:53.0 

3; Lines/CPU Min: 3608 

3; Lexemes/CPU-Min: 17373 

3 ammet | Used: 116 pages 

; Compilation Complete 


Set a 


2 
:C 


v 
C 


4.0-74 Pa 0 
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